Исходный текст

Option Explicit
Call ExportSigndefsInfo()


'==============================================================================
' Вывести краткую информацию о типах подписей в MSExcel 
'==============================================================================
Sub ExportSigndefsInfo()

        On Error Resume Next
        Err = 0    
        
        Dim ExcelApp, WrkBook, SigndefCol, SignDef, Roledef, List, i
    
        'Открыть приложение Excel
        Set ExcelApp = CreateObject("Excel.Application")
        If Err <> 0 Then 'Ошибка открытия ...
                MsgBox "Невозможно открыть приложение MS Excel.",  vbInformation, "ошибка MS Excel" 
                Exit Sub
        End If
                            
        ' Добавить рабочую книгу
        Set WrkBook = ExcelApp.Workbooks.Add
        Set List = WrkBook.ActiveSheet
    
        'Вывести на текущий лист описания типов подписей
        i = 2
        Set SigndefCol = ThisApplication.SignDefs ' Получить коллекцию подписей
        For Each SignDef In SigndefCol 
                'В первый столбец вывести описание типа подписи
                List.Cells(i, 1) = SignDef.Description
                'Во второй столбец вывести описания ролей, которым назначена подпись
                For Each Roledef In SignDef.RoleDefs
                        List.Cells(i, 2) = Roledef.Description
                        i = i + 1
                Next
                i = i + 1
        Next
        
        'Отформатировать шапку таблицы
        List.Cells(1,1) = "Тип подписи"            
        List.Cells(1,2) =     "Роли, которым подпись назначена"
        List.Rows(1).Font.Size = 12
        List.Rows(1).Font.Bold = TRUE
        List.Columns.AutoFit
        
        'Показать окно Excel
        ExcelApp.Application.Visible = TRUE
        
        'Обнулить объектные переменные
        Set List = Nothing
        Set WrkBook = Nothing
        Set ExcelApp = Nothing
End Sub 
'==============================================================================